|
AutoCAD VBA : externe Referenzen prüfen
PeterF am 06.11.2008 um 20:28 Uhr (0)
Hi alfred,danke für die rasche Antwort.Dein Code ist ja schon mal prima und hilft mir auch weiter. Die Eigenschaft XRefDatabase war das fehlende Rädchen im Getriebe, was aber immer noch schwer läuft. Ich sehe ein Problem auf mich zukommen, wenn es keinen dxf-Code gibt, der direkt externe Referenzen anspricht. "Insert" selektiert ja alle Blockreferenzen. In meinen Zeichnungen sind möglicherweise tausende davon drin. Da ist eine for each Schleife besser als nichts, aber auch nicht der schnellste Weg.Also noc ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : selectionset sortieren?
Stelli1 am 30.09.2007 um 13:02 Uhr (0)
Hallo Peter,ein Selectionset ist eine Collection von Referenzen zu Objekten die durch eine Auswahl aus der Zeichnung gefüllt wird. Das heisst, jede Referenz hat eine Position(ID) innerhalb des Selectionsets.Code:for ID=0 to sset.count -1 set RefObj = sset(ID)next IDDu kannst aber auch das Handle der Objekte speichern.Code:handle=RefObj.HandleDann bauchst du nicht mehr auf dein Selectionset zurückgreifen und kannt mitCode:set RefObj=Thisdrawing.HandleToObject(Handle)das Objekt wieder ansprechen.Wilfried ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe DLL über GetInterfaceObject ansprechen
Stelli1 am 11.06.2007 um 18:46 Uhr (0)
Hallo Jens,hab nur ein Beispiel in c++ für dich. Diese DLL ist quasi eine einfache Funktionssammlung. Die Funktionen lassen sich wie bei der Windows API aufrufen.Code:// siehe Anlage...signed long _stdcall CheckLicense (signed long p1,signed long p2,char strP[]);....signed long _stdcall CheckLicense (signed long p1,signed long p2,char strP[]){short int x; // ;)) x=1; return (x);}Code: VBPrivate Declare Function CheckLicense Lib "E:ProjekteEntwVB6c_dllTest_DllCRelease est_dll.dll" _ (ByVa ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Schleife über Elemente in einem Block
Brischke am 05.11.2016 um 12:51 Uhr (1)
Zitat:Original erstellt von rexxitall:... Das mit den verschachtelten Blöcken hab ich früher mal mit Rekursion angegangen. Wenn man etwas drüber nachdenkt ist das grober Unfug Wenn an einfach alle Blöcke die es so gibt, erschlägt man auch die verschachtelten automatisch. ...Sorry, das ist ja nun wirklicher Unfug, was du da schreibst. Natürlich bekommst du das Volumen aller innerhalb einer Blockdefinition vorhandenen Volumenkörper raus, wenn man die Blocktabelle durchläuft. Für diesen Schritt ist tatsächli ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
PeterF am 07.11.2008 um 13:50 Uhr (0)
Hi Alfred,mit einer leeren Zeichnung geht es auch.Erstelle mal eine neue Zeichnung und füge eine externe Referenz hinzu.Dann speichere die Zeichnung und benenne die externe Referenz um. Nun öffne die neu erstellte Zeichnung. Da passiert erst mal noch nichts, außer dass die Xref nicht zu sehen ist. Und nun kommt der Moment. Dim myFD As AcadFileDependencyFor Each myFD In ActiveDocument.FileDependencies an diese Stelle knallt es bei mir reproduzierbar.....Next ------------------Viele Grüße aus dem Münsterla ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
alfred neswadba am 07.11.2008 um 10:15 Uhr (0)
Hi Peter,kannst mir eine Zeichnung zukommen lassen, in der FileDependencies-Collection einen Fehler bringen? Oder kommt das bei Dir in jeder Zeichnung?- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
PeterF am 07.11.2008 um 14:57 Uhr (0)
Hi Alfred,ich habs ja nun schon anders, wie oben beschrieben gemacht. Also erst Blöcke durchlaufen (nicht die Referenzen) wenn IsXref Selectionset mit INSERT und Blocknamen bilden. Wenn dann mind. ein Objekt da ist, wurde die Xref geladen. Laufzeiten gehen bis jetzt auch, da ja nicht alle Blockreferenzen durchlaufen werden sondern nur die Definitionen. Das mit den FileDependencies war dann nur noch aus generellem Interesse.Aber dennoch Danke für Deine Mühe! ------------------Viele Grüße aus dem Münsterland ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
PeterF am 07.11.2008 um 11:16 Uhr (0)
Hi alfred,der Fehler kommt bei mir in jeder Zeichnung. Egal ob in ACAD-VBA oder extern über COM und VB.Version: ACAD 2006 Version: Z.54.10------------------Viele Grüße aus dem Münsterland!PeterF--------------------------------------------Der Horizont vieler Menschen ist ein Kreis mit dem Radius Null. Das nennen sie dann ihren Standpunkt.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Referenzen eines Blocks ermitteln
cadffm am 13.12.2021 um 22:10 Uhr (1)
Zu dem Alternativen Weg, wenn ich nicht wieder über VBA Besonderheiten stolpere dabei,braucht man auch keine Layouts aktiv setzen und wo die Referenzen platziert sind bekommt man auch von der Referenz heraus.Aber: Nur für normale Blöcke.Den Auswahlsatz kannst du nur für Referenzen des eigentlichen Blockes erstellen, das Filtern geht nicht für dynamische Ableitungen - die haben ihre eigene Blockdefinition(mit anderem Blocknamen)
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
alfred neswadba am 06.11.2008 um 20:34 Uhr (0)
Hi,Du kannst natürlich statt der Selektion auf alle BlockReferences auch die Liste der Blocks (BlockDefinitionen) durchgehen, solange Du nicht wissen willst, ob diese überhaupt verwendet sind.Dim tBl as AcadBlockfor each tBl in ThisDrawing.Blocks und da hast jetzt die Blockdefinition jetzt kann geprüft werden ob es sich um ein XRef handeltnext- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
alfred neswadba am 07.11.2008 um 11:32 Uhr (0)
Hi Peter,sorry, ich kann es nicht reproduzieren, ich habe eine leere Zeichnung offen, starte die Loop: Dim tObj As AcadFileDependency For Each tObj In ThisDrawing.FileDependencies Debug.Print tObj.Feature Nextund fliege dabei nicht ab, das Ergebnis im Output-Fenster:Acad:TextAcad:PlotConfigD.h. ich fürchte, dass es doch zeichnungs- oder konfigurationsabhängig ist.- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
alfred neswadba am 07.11.2008 um 14:00 Uhr (0)
Hi Peter,ok, so kann ichs auch sehen. Gilt also doch nur in bestimmten Zuständen .Hilft Dir das als Abhilfe?Code: Dim tObj As Object Dim i As Integer For i = 0 To ThisDrawing.FileDependencies.Count - 1 On Error Resume Next Set tObj = ThisDrawing.FileDependencies.Item(i) If (Err.Number 0) Or (tObj Is Nothing) Then Debug.Print "Unknown dependency, reference not found" Else ok End If On Error GoTo 0 Next- alfred -
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : externe Referenzen prüfen
PeterF am 06.11.2008 um 19:52 Uhr (0)
Hallo, ich möchte Pläne per VB Code auf das Vorhandensein von exteren Referenzen prüfen.Auf dem ersten Blick bietet sich dafür ja die AcadFileDependencies Collection an.Das funktioniert aber nur, wenn alle Dateien auch existieren.Ansonsten kommt beim Durchlaufen der CollectionDim myFD As AcadFileDependencyFor Each myFD In ActiveDocument.FileDependencies ....Nextdirekt ein Fehler ("Das aufgerufene Object wurde von den Clients getrennt").Die Count-Eigenschaft der Collection zeigt die zu erwartende Anzahl der ...
|
| In das Form AutoCAD VBA wechseln |
